home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n11.arc / ANIMAT.BAS next >
Encoding:
BASIC Source File  |  1988-05-02  |  230 b   |  14 lines
  1. SCREEN 1, 0
  2. DIM A%(400)
  3.  
  4. LINE (12, 12)-(48, 48), 2, BF
  5. GET (12, 12)-(48, 48), A%
  6.  
  7. LINE (0, 80)-(250, 160), 1, BF
  8.  
  9. FOR X = 10 TO 200 STEP 4
  10.     PUT (X, 100), A%, PSET
  11.     T = TIMER
  12.     WHILE T + .01 > TIMER: WEND
  13. NEXT
  14.